MacWorld 2005 July/Macworld CD 17.05.iso/Data/Main.dxr/00179_searcher.ls

Text File | 2000-02-28 | 1.8 KB | 65 lines

global gDB_Table1

on new me
  return me
end

on beginSprite me
  set the text of field "S Title" to EMPTY
  set the text of field "S Version" to EMPTY
  set the text of field "S Author" to EMPTY
  set the text of field "S Type" to EMPTY
  set the text of field "S Category" to EMPTY
  set the text of field "S Email" to EMPTY
  set the text of field "S URL" to EMPTY
  set the text of field "S Price" to EMPTY
  set the text of field "S Description" to EMPTY
end

on mouseUp me
  mSetCriteria(gDB_Table1, "Title", "=", EMPTY)
  t = the text of field "S Title"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "Title", "contains", t)
  end if
  t = the text of field "S Version"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "Version", "contains", t)
  end if
  t = the text of field "S Author"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "Author", "contains", t)
  end if
  t = the text of field "S Type"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "Type", "contains", t)
  end if
  t = the text of field "S Category"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "Category", "contains", t)
  end if
  t = the text of field "S Email"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "Email", "contains", t)
  end if
  t = the text of field "S URL"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "URL", "contains", t)
  end if
  t = the text of field "S Price"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "Price", "contains", t)
  end if
  t = the text of field "S Description"
  if t <> EMPTY then
    mSetCriteria(gDB_Table1, "or", "Description", "contains", t)
  end if
  mSelect(gDB_Table1)
  if mSelectCount(gDB_Table1) = 0 then
    alert("No products with those criteria found.")
  else
    showProdInfo(1)
    go("Shareware")
  end if
end